home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / educatio / fastball.cpt / Fastball Fractions© (Demo) / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-11-22  |  4.7 KB  |  47 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>23</cardCount>
  7.     <cardID>3069</cardID>
  8.     <listID>3784</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- This stack, Fastball Fractions┬⌐, as well as its scripts, graphics,
  17. -- and resources are copyrighted,1991, by Jan K. France.
  18. -- All rights are reserved worldwide. You must ask written permission
  19. -- to use the scripts in Fastball Fractions┬⌐. Address your inquiries to:
  20. -- France & Associates
  21. -- 2215 Duntreath Valley Drive
  22. -- Germantown TN  39139
  23. -- Phone (901) 755-3718
  24.  
  25. -- Portions ┬⌐1988 Steve Drazga (the SetVolume 1.0 XCMD).
  26. -- Jay Hodgdon wrote the ChangeCurs XCMD used in this stack.
  27.  
  28. on openstack
  29. global oldlevel
  30. hide menubar
  31. put the userLevel into oldlevel
  32. set the userlevel to 2
  33. ChangeCurs 128
  34. get cd field "SvVol" of cd "Sound Control"
  35. if it is 0 then
  36. SetVolume "┬⌐1988SDrazga",0
  37. end if
  38. if it is 1 then
  39. SetVolume "┬⌐1988SDrazga",1
  40. end if
  41. if it is 2 then
  42. SetVolume "┬⌐1988SDrazga",2
  43. end if
  44. if it is 3 then
  45. SetVolume "┬⌐1988SDrazga",3
  46. end if
  47. if it is 4 then
  48. SetVolume "┬⌐1988SDrazga",4
  49. end if
  50. if it is 5 then
  51. SetVolume "┬⌐1988SDrazga",5
  52. end if
  53. if it is 6 then
  54. SetVolume "┬⌐1988SDrazga",6
  55. end if
  56. if it is 7 then
  57. SetVolume "┬⌐1988SDrazga",7
  58. end if
  59. end openstack
  60.  
  61. on closestack
  62. global balls, strikes, outs, runs, hits, errors, inning
  63. put empty into balls
  64. put empty into strikes
  65. put empty into outs
  66. put empty into runs
  67. put empty into hits
  68. put empty into errors
  69. put empty into inning
  70. if the freeSize of this stack >1/10 * the diskSpace then doMenu "Compact Stack"
  71. global oldlevel
  72. set the userlevel to oldlevel
  73. show menubar
  74. ChangeCurs 6069
  75. end closestack
  76.  
  77.  
  78. on mousewithin
  79. if the target contains "button" then
  80. Changecurs 128
  81. end if
  82. end mousewithin
  83.  
  84. on mouseleave
  85. if the target contains "button" then
  86. Changecurs 6069
  87. end if
  88. end mouseleave
  89.  
  90. on doMenu theItem
  91. if theItem is "Quit HyperCard" then
  92. play "sonataend"
  93. visual effect iris close to black
  94. go cd "Thanks"
  95. wait until the sound is done
  96. end if
  97. if theItem is "Home" then
  98. play "sonataend"
  99. visual effect iris close to black
  100. go cd "Thanks"
  101. wait until the sound is done
  102. end if
  103. pass doMenu
  104. end doMenu
  105.  
  106.  
  107. on charge
  108. play "Chargehorn" ce de ee gq ee gh
  109. wait 1 second
  110. play "Chargehorn" de ee f#e aq f#e ah
  111. wait 1 second
  112. play "Chargehorn" ee f#e g#e bq g#e bh
  113. play "Chargehorn" be e5h
  114. end charge
  115. </script>
  116.     <background id="2574" file="background_2574.xml" name="" />
  117.     <background id="11852" file="background_11852.xml" name="Standard Card" />
  118.     <background id="13827" file="background_13827.xml" name="" />
  119.     <background id="17391" file="background_17391.xml" name="" />
  120.     <background id="18789" file="background_18789.xml" name="" />
  121.     <background id="20341" file="background_20341.xml" name="" />
  122.     <card id="3069" file="card_3069.xml" marked="false" name="" owner="2574" />
  123.     <card id="2238" file="card_2238.xml" marked="false" name="" owner="2574" />
  124.     <card id="6881" file="card_6881.xml" marked="false" name="" owner="2574" />
  125.     <card id="7813" file="card_7813.xml" marked="false" name="" owner="2574" />
  126.     <card id="8719" file="card_8719.xml" marked="false" name="" owner="2574" />
  127.     <card id="9832" file="card_9832.xml" marked="false" name="" owner="2574" />
  128.     <card id="10821" file="card_10821.xml" marked="false" name="" owner="2574" />
  129.     <card id="11432" file="card_11432.xml" marked="false" name="" owner="2574" />
  130.     <card id="12734" file="card_12734.xml" marked="false" name="" owner="2574" />
  131.     <card id="16790" file="card_16790.xml" marked="false" name="" owner="2574" />
  132.     <card id="14283" file="card_14283.xml" marked="false" name="" owner="13827" />
  133.     <card id="13329" file="card_13329.xml" marked="false" name="" owner="13827" />
  134.     <card id="14742" file="card_14742.xml" marked="false" name="" owner="13827" />
  135.     <card id="15187" file="card_15187.xml" marked="false" name="" owner="13827" />
  136.     <card id="15864" file="card_15864.xml" marked="false" name="" owner="13827" />
  137.     <card id="16217" file="card_16217.xml" marked="false" name="" owner="13827" />
  138.     <card id="11577" file="card_11577.xml" marked="false" name="Shareware Registration" owner="11852" />
  139.     <card id="7128" file="card_7128.xml" marked="false" name="Choices 1" owner="2574" />
  140.     <card id="17600" file="card_17600.xml" marked="false" name="Addition" owner="17391" />
  141.     <card id="20161" file="card_20161.xml" marked="false" name="Info" owner="20341" />
  142.     <card id="3925" file="card_3925.xml" marked="false" name="Sound Control" owner="18789" />
  143.     <card id="6389" file="card_6389.xml" marked="false" name="High Scores" owner="18789" />
  144.     <card id="19674" file="card_19674.xml" marked="false" name="Thanks" owner="18789" />
  145. </stack>
  146.